pdf(file="Figure_3.pdf",width=12,height=8)
par(mar=c(4.1,5,4,1),fig=c(0,.375,0,1))


################# LOAD PACKAGES
library(rstan)
library(rethinking)
library(parallel)
library(binom)

################# LOAD DATA

dataset <- read.csv("Data__current_study.csv")

#################

predict.values <- "NO"

################# SELECT MODEL

model = Model_5

################# GENERAL PARAMETERS

col0= 	rgb(0,0,0,255,max=255)
shade0= rgb(0,0,0,70,max=255) 
col1= 	rgb(255,0,0,255,max=255)
shade1= rgb(255,0,0,70,max=255) 
col2= 	rgb(0,0,255,255,max=255)
shade2= rgb(0,0,255,70,max=255) 
col3= 	rgb(0,153,0,255,max=255)
shade3= rgb(0,153,0,70,max=255) 
col4= 	rgb(204,102,0,255,max=255)
shade4= rgb(204,102,0,70,max=255) 
col5= 	rgb(127,0,255,255,max=255)
shade5= rgb(127,0,255,70,max=255) 
col6= 	rgb(153,150,76,255,max=255)
shade6= rgb(153,150,76,70,max=255) 
col7= 	rgb(216,5,202,255,max=255)
shade7= rgb(75,0,153,70,max=255) 
col8= 	rgb(100,100,100,255,max=255)
shade8= rgb(100,100,100,70,max=255) 

length=30	# Length of vector of predictions, i.e. how many predictions are plotted per line


age.seq0a <- seq( from=min(dataset[dataset$CONDITION_1_1yes==1 & dataset$CONDITION_2_1yes==0,]$age_c), to=max(dataset[dataset$CONDITION_1_1yes==1 & dataset$CONDITION_2_1yes==0,]$age_c) , length.out=length)
age.seq1a <- seq( from=min(dataset[dataset$fieldid==1 & dataset$CONDITION_1_1yes==1 & dataset$CONDITION_2_1yes==0,]$age_c), to=max(dataset[dataset$fieldid==1 & dataset$CONDITION_1_1yes==1 & dataset$CONDITION_2_1yes==0,]$age_c) , length.out=length)
age.seq2a <- seq( from=min(dataset[dataset$fieldid==2 & dataset$CONDITION_1_1yes==1 & dataset$CONDITION_2_1yes==0,]$age_c), to=max(dataset[dataset$fieldid==2 & dataset$CONDITION_1_1yes==1 & dataset$CONDITION_2_1yes==0,]$age_c) , length.out=length)
age.seq3a <- seq( from=min(dataset[dataset$fieldid==3 & dataset$CONDITION_1_1yes==1 & dataset$CONDITION_2_1yes==0,]$age_c), to=max(dataset[dataset$fieldid==3 & dataset$CONDITION_1_1yes==1 & dataset$CONDITION_2_1yes==0,]$age_c) , length.out=length)
age.seq4a <- seq( from=min(dataset[dataset$fieldid==4 & dataset$CONDITION_1_1yes==1 & dataset$CONDITION_2_1yes==0,]$age_c), to=max(dataset[dataset$fieldid==4 & dataset$CONDITION_1_1yes==1 & dataset$CONDITION_2_1yes==0,]$age_c) , length.out=length)
age.seq5a <- seq( from=min(dataset[dataset$fieldid==5 & dataset$CONDITION_1_1yes==1 & dataset$CONDITION_2_1yes==0,]$age_c), to=max(dataset[dataset$fieldid==5 & dataset$CONDITION_1_1yes==1 & dataset$CONDITION_2_1yes==0,]$age_c) , length.out=length)
age.seq6a <- seq( from=min(dataset[dataset$fieldid==6 & dataset$CONDITION_1_1yes==1 & dataset$CONDITION_2_1yes==0,]$age_c), to=max(dataset[dataset$fieldid==6 & dataset$CONDITION_1_1yes==1 & dataset$CONDITION_2_1yes==0,]$age_c) , length.out=length)

age.seq0b <- seq( from=min(dataset[dataset$CONDITION_1_1yes==1 & dataset$CONDITION_2_1yes==0,]$age_c), to=max(dataset[dataset$CONDITION_1_1yes==1 & dataset$CONDITION_2_1yes==0,]$age_c) , length.out=length)
age.seq1b <- seq( from=min(dataset[dataset$fieldid==1 & dataset$CONDITION_1_1yes==1 & dataset$CONDITION_2_1yes==0,]$age_c), to=max(dataset[dataset$fieldid==1 & dataset$CONDITION_1_1yes==1 & dataset$CONDITION_2_1yes==0,]$age_c) , length.out=length)
age.seq2b <- seq( from=min(dataset[dataset$fieldid==2 & dataset$CONDITION_1_1yes==1 & dataset$CONDITION_2_1yes==0,]$age_c), to=max(dataset[dataset$fieldid==2 & dataset$CONDITION_1_1yes==1 & dataset$CONDITION_2_1yes==0,]$age_c) , length.out=length)
age.seq3b <- seq( from=min(dataset[dataset$fieldid==3 & dataset$CONDITION_1_1yes==1 & dataset$CONDITION_2_1yes==0,]$age_c), to=max(dataset[dataset$fieldid==3 & dataset$CONDITION_1_1yes==1 & dataset$CONDITION_2_1yes==0,]$age_c) , length.out=length)
age.seq4b <- seq( from=min(dataset[dataset$fieldid==4 & dataset$CONDITION_1_1yes==1 & dataset$CONDITION_2_1yes==0,]$age_c), to=max(dataset[dataset$fieldid==4 & dataset$CONDITION_1_1yes==1 & dataset$CONDITION_2_1yes==0,]$age_c) , length.out=length)
age.seq5b <- seq( from=min(dataset[dataset$fieldid==5 & dataset$CONDITION_1_1yes==1 & dataset$CONDITION_2_1yes==0,]$age_c), to=max(dataset[dataset$fieldid==5 & dataset$CONDITION_1_1yes==1 & dataset$CONDITION_2_1yes==0,]$age_c) , length.out=length)
age.seq6b <- seq( from=min(dataset[dataset$fieldid==6 & dataset$CONDITION_1_1yes==1 & dataset$CONDITION_2_1yes==0,]$age_c), to=max(dataset[dataset$fieldid==6 & dataset$CONDITION_1_1yes==1 & dataset$CONDITION_2_1yes==0,]$age_c) , length.out=length)





################# PLOTTING MODEL ESTIMATES --------- SELFISH TP

cexset.title = 1.5
cexset = 1.2
cexlegend = 1.2
line=2.7
x=0
y=.95

par(mfrow=c(3, 4))
layout.matrix <- matrix(c(1,3,5,7,9,11,2,4,6,8,10,12), nrow = 3, ncol = 4)

################# PLOTTING BERLIN

layout(mat = layout.matrix, heights = c(1, 1), widths = c(1, 1)) 

plot( dataset$age_c , type="n" , xlab="Age (in years)" , ylab="Prob. of Punishing" , axes=FALSE, ylim=c(0,1), xlim=c(min(dataset$age_c),max(dataset$age_c)+.2), cex.lab=cexset, line=line)
legend(x="topleft", c("Selfish Third Party ", "Prosocial Third Party "), bty="n", lwd = 2, lty=c(1,3), cex=cexlegend, col=col0 , text.col=col0 )
title(main="( A ) Berlin\nPrime: Punish-Selfish TP", cex.main=cexset.title, sub="", cex.sub=cexset)
axis(1, at=(seq(4,16,by=(2))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=seq(4,16,by=(2)), cex.axis=cexset)    
axis(1, at=(seq(4,16,by=(1))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=FALSE, cex.axis=cexset)    
axis(2, at=seq(0,1,by=(.5)), lab=seq(0,1,by=(.5)), cex.axis=cexset)   
lines( age.seq1a , pred1a_gen, lty=1, lwd=2, col=col1)
shade( pred.PI1a_gen , age.seq1a, col=shade1)
lines( age.seq1b , pred1b_gen, lty=3, lwd=2, col=col1)
shade( pred.PI1b_gen , age.seq1b, col=shade1)




################# PLOTTING LA PLATA
plot( dataset$age_c , type="n" , xlab="Age (in years)" , ylab="Prob. of Punishing" , axes=FALSE, ylim=c(0,1), xlim=c(min(dataset$age_c),max(dataset$age_c)+.2), cex.lab=cexset, line=line)
title(main="( C ) La Plata\nPrime: Punish-Selfish TP", cex.main=cexset.title, sub="", cex.sub=cexset)
axis(1, at=(seq(4,16,by=(2))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=seq(4,16,by=(2)), cex.axis=cexset)    
axis(1, at=(seq(4,16,by=(1))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=FALSE, cex.axis=cexset)    
axis(2, at=seq(0,1,by=(.5)), lab=seq(0,1,by=(.5)), cex.axis=cexset)   
lines( age.seq2a , pred2a_gen, lty=1, lwd=2, col=col2)
shade( pred.PI2a_gen , age.seq2a, col=shade2)
lines( age.seq2b , pred2b_gen, lty=3, lwd=2, col=col2)
shade( pred.PI2b_gen , age.seq2b, col=shade2)



################# PLOTTING PHOENIX
plot( dataset$age_c , type="n" , xlab="Age (in years)" , ylab="Prob. of Punishing" , axes=FALSE, ylim=c(0,1), xlim=c(min(dataset$age_c),max(dataset$age_c)+.2), cex.lab=cexset, line=line)
title(main="( E ) Phoenix\nPrime: Punish-Selfish TP", cex.main=cexset.title, sub="", cex.sub=cexset)
axis(1, at=(seq(4,16,by=(2))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=seq(4,16,by=(2)), cex.axis=cexset)    
axis(1, at=(seq(4,16,by=(1))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=FALSE, cex.axis=cexset)    
axis(2, at=seq(0,1,by=(.5)), lab=seq(0,1,by=(.5)), cex.axis=cexset)   
lines( age.seq3a , pred3a_gen, lty=1, lwd=2, col=col3)
shade( pred.PI3a_gen , age.seq3a, col=shade3)
lines( age.seq3b , pred3b_gen, lty=3, lwd=2, col=col3)
shade( pred.PI3b_gen , age.seq3b, col=shade3)


################# PLOTTING PUNE
plot( dataset$age_c , type="n" , xlab="Age (in years)" , ylab="Prob. of Punishing" , axes=FALSE, ylim=c(0,1), xlim=c(min(dataset$age_c),max(dataset$age_c)+.2), cex.lab=cexset, line=line)
title(main="( G ) Pune\nPrime: Punish-Selfish TP", cex.main=cexset.title, sub="", cex.sub=cexset)
axis(1, at=(seq(4,16,by=(2))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=seq(4,16,by=(2)), cex.axis=cexset)    
axis(1, at=(seq(4,16,by=(1))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=FALSE, cex.axis=cexset)    
axis(2, at=seq(0,1,by=(.5)), lab=seq(0,1,by=(.5)), cex.axis=cexset)   
lines( age.seq4a , pred4a_gen, lty=1, lwd=2, col=col4)
shade( pred.PI4a_gen , age.seq4a, col=shade4)
lines( age.seq4b , pred4b_gen, lty=3, lwd=2, col=col4)
shade( pred.PI4b_gen , age.seq4b, col=shade4)


################# PLOTTING SHUAR
plot( dataset$age_c , type="n" , xlab="Age (in years)" , ylab="Prob. of Punishing" , axes=FALSE, ylim=c(0,1), xlim=c(min(dataset$age_c),max(dataset$age_c)+.2), cex.lab=cexset, line=line)
title(main="( I ) Shuar\nPrime: Punish-Selfish TP", cex.main=cexset.title, sub="", cex.sub=cexset)
axis(1, at=(seq(4,16,by=(2))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=seq(4,16,by=(2)), cex.axis=cexset)    
axis(1, at=(seq(4,16,by=(1))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=FALSE, cex.axis=cexset)    
axis(2, at=seq(0,1,by=(.5)), lab=seq(0,1,by=(.5)), cex.axis=cexset)   
lines( age.seq5a , pred5a_gen, lty=1, lwd=2, col=col5)
shade( pred.PI5a_gen , age.seq5a, col=shade5)
lines( age.seq5b , pred5b_gen, lty=3, lwd=2, col=col5)
shade( pred.PI5b_gen , age.seq5b, col=shade5)


################# PLOTTING WICHÍ
plot( dataset$age_c , type="n" , xlab="Age (in years)" , ylab="Prob. of Punishing" , axes=FALSE, ylim=c(0,1), xlim=c(min(dataset$age_c),max(dataset$age_c)+.2), cex.lab=cexset, line=line)
title(main="( K ) Wichí\nPrime: Punish-Selfish TP", cex.main=cexset.title, sub="", cex.sub=cexset)
axis(1, at=(seq(4,16,by=(2))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=seq(4,16,by=(2)), cex.axis=cexset)    
axis(1, at=(seq(4,16,by=(1))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=FALSE, cex.axis=cexset)    
axis(2, at=seq(0,1,by=(.5)), lab=seq(0,1,by=(.5)), cex.axis=cexset)   
lines( age.seq6a , pred6a_gen, lty=1, lwd=2, col=col6)
shade( pred.PI6a_gen , age.seq6a, col=shade6)
lines( age.seq6b , pred6b_gen, lty=3, lwd=2, col=col6)
shade( pred.PI6b_gen , age.seq6b, col=shade6)










################# PLOTTING MODEL ESTIMATES ---- PROSOCIAL TP

age.seq0a <- seq( from=min(dataset[dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==1,]$age_c), to=max(dataset[dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==1,]$age_c) , length.out=length)
age.seq1a <- seq( from=min(dataset[dataset$fieldid==1 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==1,]$age_c), to=max(dataset[dataset$fieldid==1 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==1,]$age_c) , length.out=length)
age.seq2a <- seq( from=min(dataset[dataset$fieldid==2 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==1,]$age_c), to=max(dataset[dataset$fieldid==2 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==1,]$age_c) , length.out=length)
age.seq3a <- seq( from=min(dataset[dataset$fieldid==3 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==1,]$age_c), to=max(dataset[dataset$fieldid==3 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==1,]$age_c) , length.out=length)
age.seq4a <- seq( from=min(dataset[dataset$fieldid==4 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==1,]$age_c), to=max(dataset[dataset$fieldid==4 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==1,]$age_c) , length.out=length)
age.seq5a <- seq( from=min(dataset[dataset$fieldid==5 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==1,]$age_c), to=max(dataset[dataset$fieldid==5 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==1,]$age_c) , length.out=length)
age.seq6a <- seq( from=min(dataset[dataset$fieldid==6 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==1,]$age_c), to=max(dataset[dataset$fieldid==6 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==1,]$age_c) , length.out=length)

age.seq0b <- seq( from=min(dataset[dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==1,]$age_c), to=max(dataset[dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==1,]$age_c) , length.out=length)
age.seq1b <- seq( from=min(dataset[dataset$fieldid==1 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==1,]$age_c), to=max(dataset[dataset$fieldid==1 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==1,]$age_c) , length.out=length)
age.seq2b <- seq( from=min(dataset[dataset$fieldid==2 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==1,]$age_c), to=max(dataset[dataset$fieldid==2 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==1,]$age_c) , length.out=length)
age.seq3b <- seq( from=min(dataset[dataset$fieldid==3 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==1,]$age_c), to=max(dataset[dataset$fieldid==3 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==1,]$age_c) , length.out=length)
age.seq4b <- seq( from=min(dataset[dataset$fieldid==4 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==1,]$age_c), to=max(dataset[dataset$fieldid==4 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==1,]$age_c) , length.out=length)
age.seq5b <- seq( from=min(dataset[dataset$fieldid==5 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==1,]$age_c), to=max(dataset[dataset$fieldid==5 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==1,]$age_c) , length.out=length)
age.seq6b <- seq( from=min(dataset[dataset$fieldid==6 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==1,]$age_c), to=max(dataset[dataset$fieldid==6 & dataset$CONDITION_1_1yes==0 & dataset$CONDITION_2_1yes==1,]$age_c) , length.out=length)



################# PLOTTING BERLIN
plot( dataset$age_c , type="n" , xlab="Age (in years)" , ylab="Prob. of Punishing" , axes=FALSE, ylim=c(0,1), xlim=c(min(dataset$age_c),max(dataset$age_c)+.2), cex.lab=cexset, line=line)
title(main="( B ) Berlin\nPrime: Punish-Prosocial TP", cex.main=cexset.title, sub="", cex.sub=cexset)
axis(1, at=(seq(4,16,by=(2))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=seq(4,16,by=(2)), cex.axis=cexset)    
axis(1, at=(seq(4,16,by=(1))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=FALSE, cex.axis=cexset)    
axis(2, at=seq(0,1,by=(.5)), lab=seq(0,1,by=(.5)), cex.axis=cexset)   
lines( age.seq1a , pred1a_self, lty=1, lwd=2, col=col1)
shade( pred.PI1a_self , age.seq1a, col=shade1)
lines( age.seq1b , pred1b_self, lty=3, lwd=2, col=col1)
shade( pred.PI1b_self , age.seq1b, col=shade1)


################# PLOTTING LA PLATA
plot( dataset$age_c , type="n" , xlab="Age (in years)" , ylab="Prob. of Punishing" , axes=FALSE, ylim=c(0,1), xlim=c(min(dataset$age_c),max(dataset$age_c)+.2), cex.lab=cexset, line=line)
title(main="( D ) La Plata\nPrime: Punish-Prosocial TP", cex.main=cexset.title, sub="", cex.sub=cexset)
axis(1, at=(seq(4,16,by=(2))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=seq(4,16,by=(2)), cex.axis=cexset)    
axis(1, at=(seq(4,16,by=(1))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=FALSE, cex.axis=cexset)    
axis(2, at=seq(0,1,by=(.5)), lab=seq(0,1,by=(.5)), cex.axis=cexset)   
lines( age.seq2a , pred2a_self, lty=1, lwd=2, col=col2)
shade( pred.PI2a_self , age.seq2a, col=shade2)
lines( age.seq2b , pred2b_self, lty=3, lwd=2, col=col2)
shade( pred.PI2b_self , age.seq2b, col=shade2)


################# PLOTTING PHOENIX
plot( dataset$age_c , type="n" , xlab="Age (in years)" , ylab="Prob. of Punishing" , axes=FALSE, ylim=c(0,1), xlim=c(min(dataset$age_c),max(dataset$age_c)+.2), cex.lab=cexset, line=line)
title(main="( F ) Phoenix\nPrime: Punish-Prosocial TP", cex.main=cexset.title, sub="", cex.sub=cexset)
axis(1, at=(seq(4,16,by=(2))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=seq(4,16,by=(2)), cex.axis=cexset)    
axis(1, at=(seq(4,16,by=(1))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=FALSE, cex.axis=cexset)    
axis(2, at=seq(0,1,by=(.5)), lab=seq(0,1,by=(.5)), cex.axis=cexset)   
lines( age.seq3a , pred3a_self, lty=1, lwd=2, col=col3)
shade( pred.PI3a_self , age.seq3a, col=shade3)
lines( age.seq3b , pred3b_self, lty=3, lwd=2, col=col3)
shade( pred.PI3b_self , age.seq3b, col=shade3)


################# PLOTTING PUNE
plot( dataset$age_c , type="n" , xlab="Age (in years)" , ylab="Prob. of Punishing" , axes=FALSE, ylim=c(0,1), xlim=c(min(dataset$age_c),max(dataset$age_c)+.2), cex.lab=cexset, line=line)
title(main="( H ) Pune\nPrime: Punish-Prosocial TP", cex.main=cexset.title, sub="", cex.sub=cexset)
axis(1, at=(seq(4,16,by=(2))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=seq(4,16,by=(2)), cex.axis=cexset)    
axis(1, at=(seq(4,16,by=(1))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=FALSE, cex.axis=cexset)    
axis(2, at=seq(0,1,by=(.5)), lab=seq(0,1,by=(.5)), cex.axis=cexset)   
lines( age.seq4a , pred4a_self, lty=1, lwd=2, col=col4)
shade( pred.PI4a_self , age.seq4a, col=shade4)
lines( age.seq4b , pred4b_self, lty=3, lwd=2, col=col4)
shade( pred.PI4b_self , age.seq4b, col=shade4)


################# PLOTTING SHUAR
plot( dataset$age_c , type="n" , xlab="Age (in years)" , ylab="Prob. of Punishing" , axes=FALSE, ylim=c(0,1), xlim=c(min(dataset$age_c),max(dataset$age_c)+.2), cex.lab=cexset, line=line)
title(main="( J ) Shuar\nPrime: Punish-Prosocial TP", cex.main=cexset.title, sub="", cex.sub=cexset)
axis(1, at=(seq(4,16,by=(2))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=seq(4,16,by=(2)), cex.axis=cexset)    
axis(1, at=(seq(4,16,by=(1))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=FALSE, cex.axis=cexset)    
axis(2, at=seq(0,1,by=(.5)), lab=seq(0,1,by=(.5)), cex.axis=cexset)   
lines( age.seq5a , pred5a_self, lty=1, lwd=2, col=col5)
shade( pred.PI5a_self , age.seq5a, col=shade5)
lines( age.seq5b , pred5b_self, lty=3, lwd=2, col=col5)
shade( pred.PI5b_self , age.seq5b, col=shade5)


################# PLOTTING WICHÍ
plot( dataset$age_c , type="n" , xlab="Age (in years)" , ylab="Prob. of Punishing" , axes=FALSE, ylim=c(0,1), xlim=c(min(dataset$age_c),max(dataset$age_c)+.2), cex.lab=cexset, line=line)
title(main="( L ) Wichí\nPrime: Punish-Prosocial TP", cex.main=cexset.title, sub="", cex.sub=cexset)
axis(1, at=(seq(4,16,by=(2))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=seq(4,16,by=(2)), cex.axis=cexset)    
axis(1, at=(seq(4,16,by=(1))-mean(dataset$AGE_in_years))/sd(dataset$AGE_in_years), lab=FALSE, cex.axis=cexset)    
axis(2, at=seq(0,1,by=(.5)), lab=seq(0,1,by=(.5)), cex.axis=cexset)   
lines( age.seq6a , pred6a_self, lty=1, lwd=2, col=col6)
shade( pred.PI6a_self , age.seq6a, col=shade6)
lines( age.seq6b , pred6b_self, lty=3, lwd=2, col=col6)
shade( pred.PI6b_self , age.seq6b, col=shade6)


dev.off()
